-module(calculate_area).
-export([area/1]).
area({rectangle,Width,Ht}) when is_integer(Width) and is_integer(Ht) -> Width * Ht;
area({circle,R}) when is_integer(R)          -> 3.1415926 * R * R;
area({sqaure,X}) when is_integer(X)->X*X.
